home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / ETEST1.TRP < prev    next >
Text File  |  1995-01-17  |  196b  |  11 lines
  1. procedure main
  2. var
  3.     day : word;
  4.     month : word;
  5.     year : word;
  6.     dayOfWeek : word;
  7. endVar
  8.     getDate(year, month, day, dayOfWeek);
  9.     writeln(day : 2, "/", month : 2 , "/", year : 4 );
  10. endProc
  11.